home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / STRINGS / PACKAGE6 / UPPER.DOC < prev    next >
Text File  |  1990-07-25  |  1KB  |  39 lines
  1. -----------------------------------------------------------------------------
  2. ConvertToUpper
  3. -----------------------------------------------------------------------------
  4.  
  5. declaration:    procedure ConvertToUpper (     OldString:
  6.                                                  TypeString;
  7.                                            var NewString:
  8.                                                  TypeString);
  9.  
  10. purpose:        To convert a string into all upper-case letters.
  11.  
  12. preconditions:  OldString is defined.  NewString is undefined.
  13.  
  14. postconditions: NewString is filled with the contents of OldString, except
  15.                 that all characters are changed to uppercase.
  16.  
  17. special cases:  none
  18.  
  19. example:        var
  20.                   AString:
  21.                     TypeString;
  22.                   LastKey:
  23.                     TypeKey;
  24.  
  25.                 begin
  26.                   .
  27.                   .
  28.                   .
  29.                   ReadLnString (AString, 5, LastKey);
  30.                   ConvertToUpper (AString, AString);
  31.                   write (output,'here is the string in all uppercase: ');
  32.                   WriteLnString (output, AString);
  33.                   .
  34.                   .
  35.                   .
  36.                 end
  37.  
  38. -----------------------------------------------------------------------------
  39.